home *** CD-ROM | disk | FTP | other *** search
/ Digital Talk 53 / Digital_Talk_53_2002-02-11_Digital_Talk_de_Side_A.d64 / laeufer v9 _kht (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  2KB  |  46 lines
  1. 1 q=peek(186):poke820,q:qa=peek(821):onqagoto8:rem---laeufer09---
  2. 2 b=53280:print"[147]":pokeb,0:pokeb+1,11:gosub130:gosub100
  3. 3 poke821,1:load"mslaeufer08*",q,1
  4. 8 poke45,0:poke46,48:clr:goto120
  5. 61 cy=int(c/100):cx=c-(cy*100)
  6. 62 poke211,cx:poke214,cy:sys58640:return
  7. 68 lc=int(l/100):ll=l-(lc*100)
  8. 69 forx=lctoll:poke781,x:sys59903:next:return
  9. 100 printtab(15)""t0$
  10. 102 printtab(7)"[152]nach einer ersten idee von":printtab(14)"[155]bruno  jonne"
  11. 104 printtab(12)"[152]programmiert von":printtab(16)"[153]ka ha te":fori=0to2000:next
  12. 110 printtab(10)"[152]daten werden geladen":printtab(14)"[144]bitte warten[155]":return
  13. 120 l=724:gosub68:gosub130:c=1406:gosub61
  14. 121 print"[152]fuer erklaerung <e[152]> druecken":printtab(18)"oder"
  15. 122 printtab(10)"[144]weiter mit  <return>[155]"
  16. 123 r$="":getr$:on-(r$<>chr$(13)andr$<>chr$(69))goto123
  17. 124 on-(r$=chr$(13))-2*(r$="e")goto126,200:goto123
  18. 126 print"[147]":poke7685,50:goto150
  19. 130 t0$="[153]laeufer 09":t1$="[155]von kahate":return
  20. 140 printt0$;:printspc(70)t1$:return
  21. 150 l=724:gosub68:z=rnd(-ti):z1=int(rnd(1)*5)
  22. 160 z2=int(rnd(1)*30):ifz2<1then160
  23. 162 z3=int(rnd(1)*5)
  24. 164 z4=int(rnd(1)*230):ifz4<50then164
  25. 170 z5=int(rnd(1)*16):on-(z5=2)-2*(z5=4)-3*(z5=6)goto170,170,170
  26. 172 on-(z5=8)-2*(z5=9)-3*(z5=11)goto170,170,170
  27. 180 poke822,z1:poke823,z2:poke824,z3:poke825,z4:poke7689,z5
  28. 190 l=6:gosub68:c=z1*100+z2:gosub61:gosub140:goto240
  29. 200 print"[147][155]erlaeuterung:":print"text und laeufer finden sich"
  30. 202 print"aehnlich einem bildschirmschoner":print"an immer anderen bild";
  31. 204 print"schirmstellen.":print"erscheinungsorte und laeuferfarben"
  32. 206 print"werden durch zufallszahlen bestimmt.":print"der laeufer star";
  33. 208 print"tet automatisch":print"alle 8 bis 10 sekunden    oder"
  34. 210 print"nach jedem <return>    oder auch":print"dauernd nach taste  <d>"
  35. 212 print"effekt  nach taste  <e>":print"programmende mit taste  <_>"
  36. 219 goto122
  37. 240 on-(r1$="e")goto260:sys7680:goto300
  38. 260 sys10752:r1$=""
  39. 300 i=0
  40. 302 r$="":getr$:ifr$=chr$(13)thenr1$="":goto150
  41. 304 on-(r$=chr$(95))goto999
  42. 306 ifr$=chr$(68)thenr1$="d"
  43. 308 ifr$=chr$(69)thenr1$="e":goto150
  44. 310 on-(r1$="d")goto150:i=i+1:on-(i>=200)goto150:goto302
  45. 999 poke198,0:poke53269,0:print"[147]":end
  46.